From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 5 Jun 1993 17:10:19 +0000 (+0000)
Subject: (add-log-current-defun): Fix typos in last change.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95561
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=633149516adc314beec6b1ebdb9eae2caaf0d866;p=emacs.git

(add-log-current-defun): Fix typos in last change.
---

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 9c1be0e4536..a90237f96ce 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -243,8 +243,8 @@ Runs `change-log-mode-hook'."
 (defun add-log-current-defun ()
   "Return name of function definition point is in, or nil.
 
-Understands Lisp, LaTeX (\"functions\" are chapters, sections, ...),
-Texinfo (@node titles), and C.
+Understands C, Lisp, LaTeX (\"functions\" are chapters, sections, ...),
+Texinfo (@node titles), and Fortran.
 
 Other modes are handled by a heuristic that looks in the 10K before
 point for uppercase headings starting in the first column or
@@ -381,7 +381,7 @@ Has a preference of looking backwards."
                    (if (re-search-forward
 			 "^[ \t]*\\(program\\|subroutine\\|function\
 \\|[ \ta-z0-9*]*[ \t]+function\\)"
-			 string nil t)
+			 nil t)
                        (progn
                          ;; move to EOL or before first left paren
                          (if (re-search-forward "[(\n]" nil t)